program test
	implicit none
	character(len=30)::str

	str="234"
	print *, (TRIM(str) .eq. "234" )

	stop
end program

